home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vii 89.d64 / printbootdata (.txt) < prev    next >
Commodore BASIC  |  2009-02-03  |  1KB  |  65 lines
  1. 5 POKE53280,13:POKE53281,13
  2. 6 POKE 788, 52:PRINT"[147]"
  3. 7 FOR I = 1 TO 5
  4. 8 PRINT SPC(10):FOR JJ = 1 TO 21:PRINT"[192]";:NEXT JJ:PRINT:NEXT I
  5. 10 PRINT " TPUG INC.":PRINT
  6. 20 PRINT TAB(11)" BOOT DATA PRINTER ":PRINT:PRINT:PRINT
  7. 25 FOR TT = 1 TO 400 : NEXT TT
  8. 30 PRINT"CHOOSE ONE":PRINT
  9. 40 PRINT "1) PRINT PROGRAM INFORMATION":PRINT
  10. 42 PRINT "2) PRINT DISK DIRECTORY":PRINT
  11. 44 PRINT "3) RETURN TO AUTOBOOT PROGRAM":PRINT
  12. 46 PRINT "4) RETURN TO BASIC"
  13. 48 GOSUB 4000
  14. 50 GETA$:IF A$="" THEN GOTO 50
  15. 55 IF A$= "1" THEN GOTO 90
  16. 60 IF A$= "2" THEN GOTO 2100
  17. 65 IF A$= "3" THEN PRINT "[147]LOADING...":POKE 788,49:LOAD"AUTOBOOT",8
  18. 70 IF A$= "4" THEN POKE 788,49: PRINT"[147]":END
  19. 75 (null) TO 50
  20. 90 PRINT"[147]":PRINT TAB(15)"PRINTING...": SQ=0
  21. 100 OPEN 2,8,2,"BOOT.DATA"
  22. 200 OPEN 4,4,7
  23. 300 GOSUB 1000: GOSUB 1000
  24. 400 GET#2,A$: GOSUB 1000: GOSUB 800
  25. 500 GOSUB 1000: GOSUB 1000
  26. 550 IF SQ=0 GOTO 400
  27. 555 GOTO 7
  28. 600 :
  29. 700 REM MUNCH LINE FROM DISK
  30. 800 F=(1=1)
  31. 900 REM PRINT LINE FROM DISK
  32. 1000 CC=0: IF SQ THEN RETURN
  33. 1005 GET#2,A$: SQ=ST
  34. 1100 IF NOT F THEN PRINT#4,A$;: CC=CC+1: IF CC>39 THEN CC=0: PRINT#4
  35. 1200 IF A$<>CHR$(13) AND SQ=0 GOTO 1005
  36. 1300 F=0: IF SQ=0 THEN RETURN
  37. 1400 CLOSE 2: CLOSE 4
  38. 1500 PRINT "[147]": RETURN
  39. 2100 PRINT"[147]":PRINT TAB(15)"PRINTING...":PRINT
  40. 2200 OPEN 1,8,0,"$": Z$=CHR$(0)
  41. 2300 OPEN 4,4,7
  42. 2400 GET#1,X$,X$
  43. 2500 GET#1,X$,X$
  44. 2600 IF X$="" OR ST<>0 GOTO 3500
  45. 2700 GET#1,X$,Y$
  46. 2800 BS=ASC(X$+Z$)+256*ASC(Y$+Z$)
  47. 2900 BS$=MID$(STR$(BS),2)
  48. 3000 PRINTTAB(6):PRINT#4,BS$;" ";: PRINT BS$;" ";
  49. 3100 GET#1,X$
  50. 3200 IF X$="" THEN PRINT#4: PRINT: GOTO 2500
  51. 3300 PRINT#4,X$;: PRINT X$;
  52. 3400 GOTO 3100
  53. 3500 PRINT#4: PRINT: CLOSE1: CLOSE 4
  54. 3600 PRINT"[147]":GOTO 7
  55. 4000 REM BELL SOUND
  56. 4010 S=54272
  57. 4020 POKE S+4,20
  58. 4030 POKE S+1,60:POKE S+5,9
  59. 4040 POKE S+5,60:POKE S+6,9
  60. 4050 POKE S+15,40:POKE S+24,15
  61. 4060 POKE S+4,21
  62. 4070 FOR T=1 TO 500:NEXT T
  63. 4080 POKE S+4,20
  64. 4090 RETURN
  65.